Imports System

Partial Public Class Helper
    ''' <summary>
    ''' Determines if an object type is numeric
    ''' </summary>
    ''' <param name="objType"></param>
    ''' <returns></returns>
    Private Function IsNumeric(ByVal objType As Type) As [Boolean]
        If Not objType.IsEnum Then
            Select Case Type.GetTypeCode(objType)
                Case TypeCode.[Char], TypeCode.[SByte], TypeCode.[Byte], TypeCode.Int16, TypeCode.UInt16, TypeCode.Int32, _
                TypeCode.UInt32, TypeCode.Int64, TypeCode.UInt64, TypeCode.[Single], TypeCode.[Double]
                    Return True
            End Select
        End If
        Return False
    End Function
End Class